home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 07 (1983-03)(Softdisk)(Side A).zip / Softdisk Magazette Volume 2, No. 07 (1983-03)(Softdisk)(Side A).do / PAL.98005.STEVES.DEC.82.B.bas < prev    next >
BASIC Source File  |  1996-12-24  |  2KB  |  25 lines
  1. 10 D$ =  CHR$(13) + CHR$(4): ONERR  GOTO 300
  2. 50  GOSUB 100: GOTO 120
  3. 100  TEXT : HOME : INVERSE 
  4. 110  FOR I = 1 TO 24: PRINT  SPC( 40): NEXT : VTAB 2: RETURN 
  5. 120  VTAB 2: PRINT "      ***  SILENTYPE PRINTER  ***
  6. 125  PRINT 
  7. 130  PRINT " I AM ONE OF THE DIE-HARDS WHO IS STILL  HACKING ALONG WITH A SILENTYPE PRINTER. ONE OF THE REASONS IS THE SUPPOSED ABI- LITY TO GET AT THE 'HOOKS' TO CHANGE    THINGS.  HOWEVER, TO DATE I HAVE ONLY 
  8. 140  PRINT " BEEN ABLE TO EFFECT THE 'LOWER CASE     DESCENDERS' CHANGE FROM AN OLD APPLE    ORCHARD ARTICLE (VOL. 2, NO. 2, SUMMER  1981).
  9. 145  PRINT 
  10. 150  PRINT " IS THERE ANYBODY OUT THERE IN SOFTDISK- LAND WHO HAS DECYPHERED THE SILENTYPE   SOFTWARE OR WHO IS INTERESTED IN DOING  SO?  I AM PARTICULARLY INTERESTED IN    BEING ABLE PRINT MIXED TEXT AND GRA-
  11. 160  PRINT " PHICS. (IT WOULD BE NICE TO HAVE SOME-  THING LIKE 'INSIDE APPLE SILENTYPE'..)
  12. 165  PRINT : PRINT "       PRESS ANY KEY TO CONTINUE": PRINT : GET A$: PRINT 
  13. 167  GOSUB 100: PRINT : PRINT " I MAY BE REACHED AT THE FOLLOWING       ADDRESS: 
  14. 170  POKE 32,7: PRINT : PRINT "LEW STEVES": PRINT "13450 NE 27TH PLACE": PRINT "BELLEVUE, WA 98OO5
  15. 180  POKE 32,0: PRINT : PRINT " OR AT THE FOLLOWING TELEPHONE NUMBERS:
  16. 190  POKE 32,7: PRINT : PRINT "206-453-4313 (OFFICE)": PRINT "206-883-6633 (HOME)
  17. 200  POKE 32,0: PRINT : PRINT : PRINT " PRESS [Q] TO QUIT OR ANY OTHER KEY TO   RETURN TO THE MENU."
  18. 205  NORMAL : TEXT 
  19. 210  HTAB 20: VTAB 24: GET A$: IF A$ = "Q"  THEN  NORMAL : END 
  20. 220  PRINT D$;"RUN PAL.MENU"
  21. 300  ONERR  GOTO 400
  22. 310  PRINT D$;"RUN MENU"
  23. 400  ONERR  GOTO 999
  24. 410  PRINT D$;"RUN HELLO"
  25. 999  NORMAL : END